0 PRINT"[147]":POKE53281,0:POKE53280,0:PRINT"[158]"
1 PRINTSPC(10)"1525 HI-SCORE PRINTOUT":REM WRITTEN BY STEPHEN CHENG NO. 11714
2 PRINT"THIS PROGRAM PRINTS A TABLE OF HIGH"
3 PRINT"SCORES FROM EITHER THE COMMODORE 64 OR"
4 PRINT"  COLECO VISION.  THERE ARE 3 SPACES FOR"
5 PRINT"  YOU TO ENTER YOUR HIGH SCORES."
6 PRINT" PRESS '1' FOR COMMODORE 64":PRINT" PRESS '2' FOR COLECOVISION"
7 GETZ$:IFZ$=""THEN7
8 PRINT"[147]"
9 IF Z$="2"THEN11
10 PRINTTAB(7)"COMMODORE 64 HIGH SCORES":GOTO12
11 PRINTTAB(7)"COLECOVISION HIGH SCORES"
12 PRINT"HOW MANY COPIES?[158]":INPUTC
15 IFZ$="2"THENPRINT" DO YOU WISH TO USE THE RECORDED DATA":INPUT A$
17 IFLEFT$(A$,1)="Y"THEN400
20 INPUT"HOW MANY GAMES?";GA
30 DIM B$(GA)
35 FORN=1TOGA:PRINT"GAME ";N:INPUTB$(N):NEXTN
40 PRINT"GET READY[158] PUSH RETURN WHEN READY"
45 GETA$:IFA$=""THEN45
47 OPEN3,4:CMD3:PRINTCHR$(14)
48 FOR X=1TOC
50 PRINT"[213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201]"
51 PRINT"[221]                                    [221]
52 [139]Z$[178]"2"[167]60
55 [153]"(null)      COMMODORE 64 HIGH SCORES      (null)":[137]65
60 [153]"(null)      COLECOVISION HIGH SCORES      (null)
65 PRINT"[221]                                    [221]
70 [153]"MID$ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND(null)
75 FORN=1TO GA
80 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
90 PRINT"[221] ";B$(N);:A=18-(LEN(B$(N))):PRINTSPC(A)"[164][164][164][164]  [164][164][164][164]  [164][164][164][164] [221]"
100 PRINT"[202][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][203]
200 [130]N
210 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[130]X
250 [160]3,4:[128]
400 GAME[178]23:[134]B$(GA):[129]N[178]1[164]GA:[135]B$(N):[130]:[137]40
410 [131] "DONKEY KONG","DONKEY KONG JR.","COSMIC AVENGER","GORF","VENTURE"
420 [131]"LADYBUG","SMURF","TURBO","SLITHER","SPACE FURY","CARNIVAL","ZAXXON"
430 [131] "MOUSE TRAP","LOOPING","SPACE PANIC","SUBROC","PEPPER II","VICTORY"
433 [131] "BASEBALL"
435 [131] "MR DO!","OMEGA RACE","TIME PILOT","BUCK ROGERS"